home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 2 #3
/
Commodore_Disk_User_Vol.2_3_1989_-_Side_A.d64
/
mcode fill
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
438b
|
16 lines
10 ifa=0thena=a+1:load"fill code",8,1
20 poke53280,0:poke53281,0:print"[147]screen[160]fill[160]routines"
30 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
40 print"select[160]an[160]option[160]and[160]press[160]the[160]spacebar[160]";
50 print"after[160]the[160]program[160]has[160]filled[160]the[160]screen."
60 print"1[160]basic"
70 print"2[160]machine[160]code"
80 get a$:ifa$="1"then110
90 if a$="2"then120
100 goto80
110 fora=1024to2023:ifpeek(a)=32thenpokea,42:poke54272+a,7
115 next:goto130
120 sys49152
130 geta$:ifa$<>" "then 130
140 goto20